home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2c.lha / p4-1.2c / messages_f / simpglob.f < prev    next >
Text File  |  1993-05-24  |  904b  |  50 lines
  1.       program systest
  2.  
  3.       include 'p4f.h'
  4.  
  5.       call p4init()
  6.       call p4crpg()
  7.       call fslave()
  8.       call p4cleanup()
  9.       print *,'exiting pgm'
  10.       end
  11.  
  12.  
  13.       subroutine fslave()
  14.  
  15.       include 'p4f.h'
  16.  
  17.       character*40 buffer
  18.       integer*4 ASIZE
  19.       parameter (ASIZE = 10)
  20.       real*8  a(ASIZE)
  21.       integer*4 i, procid, itype, iasize, idblsize, ip4dbl, rc
  22.  
  23.       procid = p4myid()
  24.  
  25.       print 200,'slave ',procid,' has started'
  26.  200  format(a,i2,a)
  27.       call p4flush
  28.  
  29.       do 10 i = 1,ASIZE
  30.           a(i) = i
  31.  10   continue
  32.  
  33.       itype = 44
  34.       iasize = ASIZE
  35.       idblsize = 8
  36.       ip4dbl = P4DBL
  37.       call p4globop(itype,a,iasize,idblsize,p4dblsumop,ip4dbl,rc)
  38.  
  39.       do 20 i = 1,ASIZE
  40.           print 300,a(i)
  41.           call p4flush
  42.  20   continue
  43. 300   format(f8.0)
  44.  
  45.       print 500,'slave ',procid,' is exiting'
  46.  500  format(a,i2,a)
  47.       call p4flush
  48.  
  49.       end
  50.